﻿Public Class UC_Matkhau

    Private Sub txtnewpas_EditValueChanged(sender As Object, e As EventArgs) Handles txtnewpas.EditValueChanged

    End Sub

    Private Sub btnChangepass_Click(sender As Object, e As EventArgs) Handles btnChangepass.Click
        If txtnewpas.Text = "" Or txtOpass.Text = "" Then
            MsgBox("Mật khẩu không được để trống.")
            Return
        End If
        If txtnewpas.Text = txtreppass.Text And Account.Pass = txtOpass.Text Then
            Dim t As New DTOTaiKhoan
            t.Password = txtnewpas.Text
            t.MaNV = Account.MaNV
            t.Username =Account.uname
            BUSTaiKhoan.TaiKhoan_Update(t)
            cleartext
            MsgBox("Đổi mật khẩu thành công")
        Else
            MsgBox("Mật khẩu nhập lại hoặc mật khẩu cũ không đúng")
            cleartext
            Return
        End If
    End Sub
    Sub cleartext()
        txtOpass.Text = ""
        txtnewpas.Text = ""
        txtreppass.Text = ""
    End Sub
End Class
